#!/usr/bin/perl
# tailing - trailing a growing file. (From perl cookbook)
#use strict;
use warnings;
use File::Tail;

my $FILENAME="C:\\dev\\classroom-root\\container\\lp-gf-3.1.1\\glassfishv3\\glassfish\\learningplatform\\logs\\learningplatform.log";

my $file=File::Tail->new($FILENAME);
while (defined($line=$file->read)) {
	print "$line";
}